home *** CD-ROM | disk | FTP | other *** search
/ Modeling the Dream / Modeling the Dream CD - Walkthroughs and Flybys II (1994)(Waite Group).iso / programs / freedisk.txt < prev    next >
Text File  |  1994-02-22  |  480b  |  27 lines
  1. set c chr(10)
  2. alloc fr 100
  3. set spa ""
  4. . delete("t")
  5. exec @comspec "/c free.exe a: >t"
  6. set fs open("t")
  7. if !@fs err 
  8. local bytes_read read(@fs,@fr,100)
  9. close @fs
  10. set spastr mid(@@fr,12,@bytes_read-24)
  11. set len
  12. tt:
  13. if instr(@spastr,",",1)            ;is there a comma?
  14.     set fcp instr(@spastr,",",1)    
  15.     set spastr mid(@spastr,1,@fcp-1)$mid(@spastr,@fcp+1,len(@spastr))
  16.     goto tt
  17. endif
  18. text @spastr/1024$"K free"
  19. waitkey
  20. exit
  21.  
  22.  
  23. err:
  24. text "error on file t"
  25. waitkey
  26. exit
  27.